home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / cshyperl / cshlink_.exe / _SETUP.1 / frmEx1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-04-30  |  3.4 KB  |  99 lines
  1. VERSION 5.00
  2. Object = "{3C9FDFB5-C3F1-11D1-82B4-EB3D09931551}#1.1#0"; "cshlink.ocx"
  3. Begin VB.Form frmEx1 
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "Hyperlink Control Example Application"
  6.    ClientHeight    =   1575
  7.    ClientLeft      =   45
  8.    ClientTop       =   330
  9.    ClientWidth     =   5775
  10.    Icon            =   "frmEx1.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   1575
  15.    ScaleWidth      =   5775
  16.    StartUpPosition =   2  'CenterScreen
  17.    Begin csHyperlinkCtl.csHyperlink csHyperlink2 
  18.       Height          =   300
  19.       Left            =   120
  20.       TabIndex        =   3
  21.       ToolTipText     =   "This hyperlink doesn't go anywhere."
  22.       Top             =   960
  23.       Width           =   4230
  24.       _ExtentX        =   7461
  25.       _ExtentY        =   529
  26.       ForeColor       =   255
  27.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  28.          Name            =   "MS Sans Serif"
  29.          Size            =   12
  30.          Charset         =   0
  31.          Weight          =   700
  32.          Underline       =   -1  'True
  33.          Italic          =   0   'False
  34.          Strikethrough   =   0   'False
  35.       EndProperty
  36.       AutoSize        =   -1  'True
  37.       Caption         =   "Red Hyperlink That Goes Nowhere!"
  38.       URL             =   ""
  39.    End
  40.    Begin VB.CommandButton cmdClose 
  41.       Cancel          =   -1  'True
  42.       Caption         =   "&Close"
  43.       Default         =   -1  'True
  44.       Height          =   375
  45.       Left            =   4560
  46.       TabIndex        =   1
  47.       Top             =   1080
  48.       Width           =   1095
  49.    End
  50.    Begin csHyperlinkCtl.csHyperlink csHyperlink1 
  51.       Height          =   255
  52.       Left            =   120
  53.       TabIndex        =   0
  54.       ToolTipText     =   "http://www.charonsoftware.com/activex/hyperlink/ (use whatever tooltip you want)"
  55.       Top             =   600
  56.       Width           =   4695
  57.       _ExtentX        =   8281
  58.       _ExtentY        =   450
  59.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  60.          Name            =   "MS Sans Serif"
  61.          Size            =   8.25
  62.          Charset         =   0
  63.          Weight          =   700
  64.          Underline       =   -1  'True
  65.          Italic          =   0   'False
  66.          Strikethrough   =   0   'False
  67.       EndProperty
  68.       Caption         =   "Click here to go to the Hyperlink Control Home Page"
  69.       URL             =   "http://www.charonsoftware.com/activex/hyperlink/"
  70.       Alignment       =   2
  71.    End
  72.    Begin VB.Label Label1 
  73.       Alignment       =   2  'Center
  74.       Caption         =   "Click on the hyperlink below!"
  75.       BeginProperty Font 
  76.          Name            =   "MS Sans Serif"
  77.          Size            =   9.75
  78.          Charset         =   0
  79.          Weight          =   700
  80.          Underline       =   0   'False
  81.          Italic          =   0   'False
  82.          Strikethrough   =   0   'False
  83.       EndProperty
  84.       Height          =   255
  85.       Left            =   240
  86.       TabIndex        =   2
  87.       Top             =   120
  88.       Width           =   4455
  89.    End
  90. Attribute VB_Name = "frmEx1"
  91. Attribute VB_GlobalNameSpace = False
  92. Attribute VB_Creatable = False
  93. Attribute VB_PredeclaredId = True
  94. Attribute VB_Exposed = False
  95. Option Explicit
  96. Private Sub cmdClose_Click()
  97.     Unload Me
  98. End Sub
  99.